home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Ultimate Frank Lloyd…ght - America's Architect
/
Ultimate Frank Lloyd Wright, The - America's Architect (1994)(Microsoft Home).iso
/
pre
/
flw
/
flwlb32.dir
/
00146_Script_146
< prev
next >
Wrap
Text File
|
1994-11-15
|
2KB
|
96 lines
on startMovie
cursor 4
global nowFrame, currMM
set currMM = "FLWWT"
preLoadCast 1,4
puppetSprite 21, TRUE
puppetSprite 22, TRUE
puppetSprite 23, TRUE
puppetSprite 11, TRUE
set the immediate of sprite 23 to TRUE
set the stretch of sprite 23 to FALSE
end startMovie
on stepMovie
global nowFrame,currFrame
if nowFrame <> currFrame then
seeAlsoList
set currFrame = nowFrame
end if
end stepMovie
on saveLocals
global lastMovie, lastFrame, nowFrame
set lastFrame = nowFrame
set lastMovie = "FLWLB32"
end saveLocals
on buttonState
global FrankNav, bFlag
if rollover(11) then
set the castNum of sprite 11 to 1090
if the mouseDown then
set the castNum of sprite 11 to 1091
end if
else
set the castNum of sprite 11 to 1089
end if
if rollover(5) then
rollCheck
else
set pos = 0
cursor -1
end if
if (the mouseV > 400) or (bFlag = TRUE) then
doState
end if
end buttonState
on rollCheck
global right, left, forw, down, pos
if the mouseH>=257 and the mouseH<=347 and the mouseV>67 and the mouseV<307 then
if right = 1 then
set pos = 3
cursor [1065,1066]
else
set pos = 0
cursor [1071,1072]
end if
else if the mouseH>=27 and the mouseH<=119 and the mouseV>67 and the mouseV<307 then
if left = 1 then
set pos = 1
cursor [1069,1070]
else
set pos = 0
cursor [1071,1072]
end if
else if the mouseH>=117 and the mouseH<=257 and the mouseV>67 and the mousev<217 then
if forw = 1 then
set pos = 2
cursor [1067,1068]
else
set pos = 0
cursor [1071,1072]
end if
else if the mouseH>=117 and the mouseH<=257 and the mouseV>217 and the mouseV<307 then
if down = 1 then
set pos = 4
cursor [1073,1074]
else if down = 0 and forw = 1 then
set pos = 2
cursor [1067,1068]
else
set pos = 0
cursor [1071,1072]
end if
end if
end rollCheck